unit worker;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbbase, DB, StdCtrls, Buttons, Mask, RzEdit, RzButton, Grids,
  DBGrids, RzDBGrid, ExtCtrls;

type
  Tworkerfrm = class(TdbbaseFrm)
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure IniParam;override;
    procedure QFindRcd;override;
    procedure PrintRpt;override;
    procedure FindRcd; override;
    procedure AddRcd;  override;
    procedure EditRcd; override;
    procedure DelRcd;  override;
    //procedure CutCnnt; override;
    procedure FrmExit; override;
  end;

  procedure workerManage(Parent:TWincontrol);

implementation

{$R *.dfm}

uses datmd;

Procedure TWorkerfrm.IniParam;
begin
  DataSource.DataSet:=datmdfrm.Worker;
  DataSource.DataSet.Active:=True;
end;

procedure TWorkerfrm.QFindRcd;
begin
  //DataSource.DataSet.Active:=False;

end;

procedure TWorkerfrm.PrintRpt;
begin


end;

procedure TWorkerfrm.FindRcd; 
begin


end;

procedure TWorkerfrm.AddRcd;  
begin


end;

procedure TWorkerfrm.EditRcd; 
begin


end;

procedure TWorkerfrm.DelRcd;  
begin
  
end;

procedure TWorkerfrm.FrmExit; 
begin
  DataSource.DataSet.Close;
  DataSource.DataSet.Active:=False;
  Close;
end;

procedure workerManage(Parent:TWincontrol);
var
  MyWorkfrm:TWorkerFrm;
begin
  MyWorkfrm:=TWorkerFrm.Create(Parent);
  MyWorkfrm.Parent:=Parent;
  MyWorkfrm.Show;
end;

end.
